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%%% A 

COM 



PPEND/CANDE SGUfiCF: PROGRAM, t'f 

MENT J * TITLE !. . B550.Q/._L&7tUl fclAM 

FILE 10 1 SYMBUL/APPEMO 
THIS MATERIAL IS PR0PR1 
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EXCEPT IN ACCORDANCE Wl 
WRITTEN AUTHORIZATION 
BUB. R..O.US H S Cj] RP Q RAllM, ._ 



* 

* 
* 

* 
* 



XI V. SYSTEM 
TAPE ID J SY 
ETARY TO BUR 

Ej2___ LSEO*'. 

TH PROGRAM L 
F THE PaTeM 
feJEJLBJ-U-U MlC. 



RELEASE 

ME0L2/FILE000 
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real common; 

SAVE ARRAY ERR 1 U ] » A,N [0 : 30] * B,PARAMS 1 * 1 

XlkE.. IN SRCEF.I.L... DllBL_SEfl.IjkL_(l£O i 0ii. 

FILE IN WRKFIL DISK SERIAL C2#0>0>; 

FILE OUT QUTFIL DISK SERIAL C2016G0. (2, 

FILE OUT NEWTAB L.S.K. .SEE _._L . 2fl._» 30 1 . {___ 

BOOLEAN BRAAK, RESEG» SEQChK* SFL-, MA 

LABEL NEXTPARAM* TESTREAU, READSRCE, H 

REAL . AD.J* BASE* E0F.E.1EU ...ENURESE.-*. .E.QE 

INCR, LINE* LRANGE* LREC NAP* NCT, 

PC PREVSEQ' REO SRCESEO* STRTRESEG' 

.%..*.* * * * * * * ***** * * ** * *.__*.** *,**.**_** .**.*.* *.**.* Jt** 

REAL STREAM PROCEDURE HDR(F,N)i VALUE M 
X***************************************** 

BEGIN 

sijsf; 3csh«si-8>; 
si:«f; i4(si :*si+e); 
sijsf; Ncsn»si+ej; 

end stream procedure hDR; 
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suppress, ok; 
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wrkseq; 

**,*..* .**.*.. .**.-*..*.*J_** * 
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********************** 
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DI>=LOC f; d 
DUsLOC f; 
Dl'SLQC HOR; 



sjs^os; 
sj*^ds; 
. DS»*wp_s; 
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******************* 
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********************** 
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in; 

% MCP RETURNS _ 



PRO CXD UR.E .. . D 1 SMA.LU1 tAt. 
VALUE I*S,D; REAL I.S,D 

x********************** 

.?J?°C.EDURE JWXOUT C A»N , T ) 

X********************** 

value n>t; 
real a*n#t; 

begin c mm uni cat e(- 

braak »« boolEanct); 

end ; _ ___ 

%***********************************************************************Q0O132Q0 
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********00013500 
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****** 
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STREAM 
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***************** 
PROCEDURE OUTCCN 

1.H . S_ll jsLOX HL_fiI.l 

***************** 

PROCEDURE MQVECN 

Ili_5lJ.sAJLJBll.-ai 

***************** 

PROCEDURE INFORM 
.* *..* *..*.*. *** ******* * 

in local sv; 

=a; sv»*di; si»_l 

sSli._J3LlLS.SJ-i-J.LLF. 



NPCONV(X)/ 

lNPX.aNll_.J_S_LS8--.D-Cl 

******************* 

vca»nj; value n; 

SAJL. OSJ. S3 01 LL_EftL£_i_ 
******************* 

*a,bj; VALUE n; 

D.S_-i_N._JU_SX__EAOi. _ ... 

******* * * * ********* 

user(a,nmbr,last); 

******************* 
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********************** 
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********************** 

value nmbr,last; 

■±A.*.*.*M***.AjkA*..&.±!kJL±iUi*±. 



***** 

*_*_**_*- 



oc nmbr; ds»s8dec; 

SC*" « THEN Si:=SI 



oi»*sv; ds:«7fill; 

+1 ELSE D SlsCHR); 



sn=sv; Dltssv; s.tf sc*» _' then sh-sim else dsi-ehr); 

DS:a40LIT'' RECORDS APPENDED (LAST RECORD APPCNDEO«"J 

Sv«»Dn sii*loc last; ds»*8dec; uii*sv; dsu/fill; 

_SXis_-.y_- ...DJiaSVi flMF 50__! M THEN S T I * S T + > ELSE 0s.-ChR_; 
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END 
******* 
STREAM 
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END 

******* 

PROCEDU 
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STRE 

**.** 
PRQC 
**** 
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err; 
loc 
sv; 
di; 

STRE 
**** 
RE E 
**** 
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EDURE 
**** * 

CAL S 

DS«« 
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01 1.-J3 
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***** 

pORC 
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15LI 
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IRE INFORM 
.**. ****** * * 
ERR(ERK*N1 
********** 



user; 

*-*.** * * *_* * .*..* * * * * *.* 

*N8)i VALUE Nl»N2 
***************** 
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************** 
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EKROHJ"! SVJ=Di; 

;Sy; Oo« = 7fill; 



T'SEQUENCE 

dec; di»* 

DS.iJ?2LlT." 

2J DS:sgDEC; DH'Svl OSisfFlLLI 

URE MAKERR 
*** *** ** ** 

2 31 V A L U E 
********** 
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~J._7i.27 real" N l7 n2 

r***************** 
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************** 



BE-Glit - __.. _..... 

MAKERR(ERR,N1#N2)I TWXOUTCE 
END PROCEDURE ERROR; 

****************************** 

A CO]: sQI DISK WAIT 7iYAT3 6»C OMMO 

USER {s AC23I 

OuTCONV(LlNE#ACl].C4Ci83)i % JD 

IF MaKTAB »* A"13,[3»13 « TH 
WITH " "&"1T"C 
WITH AI33*. A[4J 
WITH AtlO],USER 
WITH A[9J# USER 

A [11. 1 8X11.5 li 

AC53 NEO C THEN 



RRC03/33,1)I 

********** *_****** 
N)"/ * GET ESP REC 



************** 

QHD " " "" 
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X UPPER 
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FILL NEWTAB 
FILL SRCEFJL 
FILL WRKFIL 
FILL OUTFIL 
SUPPRESS 1= 
IF RESEQ *« 

BEGIN 
S.T.RTRE§E.0j=AC5]J 

ENDRESEQ »=A[6]| 

INCR t=A[8]| 

base u.aii..1- 

end; 

NPARAMS !■ A[i3 t [27;63; X PAR 
...BEAD SEEKC SRCEF I LlO _ ).;... EflEf TBI. 
SFLG := HDR(SRCEFIL»4).C36S63 
NCT * = -II 

D.0 fl EG IN . % ... JR A NgF E fi . Jtf_K f. I L _ 

READ(WRKFlL»i0#8[*3)fE0FWRK 
IF MAKTAg THEN 

BEGIN 

IF NPTR tx NPTR + 1 ti TR 
BEGIN 
WRITE(NEWTAB>30,NC*3) 

nptr i» b; 
end; 

N [NPTR 3 »» (iRKSEQ 'tjiiRPC 
END; X IF MAKT A8 
END UNTIL FALSE! 
EO.F_W.RKJ __ . 

clusecwrkfid; 

PREVSEQ »° "I! 
._]___!___ U_0_L.. 



EClMAu LINE iM(jMBE 

en * "tab Tile wTl 

6»36U2]4LlNEC18J 

; .x.fiLE, to. be ap 
; * existing ^qrk 



l be Required 

3GU83, USERS 

P.ENDED _ _.„ 

KILE 

J * output f ue name 



UMQ.....FOR fi______fl_j£l!iC. 

UNO FUH resequenc 
x resequence increment 

-I.NCR J._*__R£SEQ B AS£ 



AMETE« COUNT 
*HD_R(S.RC£F.I.LtI.)i... 
NEO 81 % NOT TYPE 



X EOF EiUNlEfL 

DATA 



it£CQR.O.S I_LiLU.lF.lJ. _ 

3; WRlTEC0UTFlL'10'Bt*J); 



29 THEN 



MY .._!_ C ~J L_._* CNCTI«NCT *1) [ 4I32 U63; 



00014820 
00U14830 

.__*.*._.Q_a_).lA9.aO 
00015000 

****000l5l00 

QOQ 15200. 

00015300 
00015400 

_ 0JQO.155Q.Q. 

00015600 
00015700 

**** 00.0 L_t8 0.0. 
00015900 

****00016000 

OC_QI.6.tO.Q 

00016200 
00016300 

****0QQ16400 

00016500 
00016600 
00016700 

00016800 
00016900 

0..Q01ZO0Q 

00017100 

00017200 

00017250. 

00017300 
00017400 

00.017500 

00017600 
00017700 

_.__ 00.0 i.7 80.0 

00017900 
00018000 

00018.100 

00018200 
00018300 

OX! 0.18.1.00... 

00018500 
00018600 
0001 8700 



ioooooooo; 

:= NPARAMS 



EOFMARK J* 
IF SEQCHK 

BELGIN_ 

M"0VE(9#A[2i]/PARAMS); 
RECI»0I NPARAMSl«NPARAMS-ll 

nextparam: 



GTR THEN X PARAMETERS SPECIFIED 
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00018900 
00019000 
00019100 
00019200 
00019300 



sRCE5EQt*Pc«*-i; lrecim; 



000i9400 
00019500 
___Q____960JQ_ 
00019700 
00019800 

..Q_a____2___LSL 
00020000 
00020100 

0002 020 
00020300 
00020400 
00020500 
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lf> 



lrec »= lrec -1; 

LRANGE*=HRANGEt=PARAMS[PC:=PC+l J> 
IF LRANGE.= lOOOOOOCC TH£N % "ENQ W 
BEGIN * 

READ C SRC EFIL CECFPTR], 14, 8 L*]H EOF] J READ C SRC EFIL ) ; 

go to havesrqe; 

end; " ~ " 

IF PC lss nparams then % more parameters available 

.. IF PARAMStPC+lJtClUJ'l THEN__* RANGE SPECIFIED 
HRANGE»*PARAMS[PC»sPC + 1~] ,[21127 3. 
IF NOT SFLG THEN % RECORD LOCATION SPECIFIED 

fl.E.G IN 

READ SEEKCSRCEFIl[LRECIs(lRa"nGE-1 )XREAL(LRAKGE 

go to readsrce; % skip binary search 
end;..., _ _ 

IF SRCESEQ a LRANg'e THEN X ALREADY hAvYThis" «ECORD 

BEGIm LREC««LREC ♦ \i Go TO HaVESRCE; END; 
IF... (EOFPTR.rJ.REC) LSS 3Q THEN GO TO READ.S.RCEI * 5j_IP 
REC« = LREC+(E0FPTR- L REC) OIV Zi » START I ^ THE CENTER 

GO TO testread; 

DO BEGIN 

IF LRANGE LSS SRCESEQ THEN * MUvE BACK* NOT LSS 
REC« = (RECt3REC-AD*hxREALCREC.U:U s O) ELSE * MOVE 

IF RECfs(LRECl5RE.C) + ADJ fi.TJ_..£._f...PtK THEN REC t sEOFp 

TESTREADJ 

READCSRCEFILCRECD* \b>til*i)i 

SRCESEQ?.= INPCUNV(.B[.9i); 

IF SRCESE8*LRANGE THEN % MATCHING RECORD 

BEGIN LRECJ«REC; READ ( SRCEF II ) 1 GO TO hAvESRCE 

AD J «.s.C RE C-LREC1.D.1V Zi . 

END UNTIL ADJ LEQ lj 
READ SEEK(SRCEFILCLREC J); % NOT FUyND I in BINARY 3EAR 
.. - END./.-.* . IF. PARA.MEJE.fiS S..P.LC.I.FIED 

READSRCE* 

"READtsRcEFILVloTBC*'] HEOFlT 

LREC := LREC + \i 

. SR C.E5E.Q. . » .■ IF SEL.G.....IKEN JJ_P C .QitY.I B..L.9 _JL_£.lU_ .J.R EO> 

IF SEOCHK THEN 
BEGIN 

lE_JRCJtStft._Lia_LBAN.eE. IH.EN . . _*fl_I_L H.£_\QS_RCE; __ TOO LQ*L 

IF SRCESEQ GTR HRANGL THEN % TOO HIGH 

IF SEQCHKtsPC LSS NPARAMS THEN GU NEXTPARAM £L,E GO EOf; 
END; X IF SE.Q.CHK 



NEQ 0) J Ji 



BJ.NARy s 

OF RANG 



UP 

TRJ-. 



; end; 

CH, GO B 



EARCH 

E 



ACK 



HAVESRCE* 

*J.'.i.l»JI! _ 

0UTSEQ»*IF MAKTAB AND NOT SFLG THEN 1 NPCONV ( BC 9 . ) 

IF RESEQ THEM % RESEQUENCE THE FILE 

IF OK _0R SRCESEQ GEO STRTRE SEQ THtN_ 

IF RESEQ IsOK I -SRCESEQ LEO EnDREsEQ THEN X RECORDS 
BEGIN 

OUTSEQ s- BASE 5_*_BASE ♦ INCRJ % CALCULATE Nth 
buTC_NV(B.9J»0UTSEC>J X M V E " N U M d E R~"~f rt"tC OR " 

end; 
il m aktab then % check s e_q , _n u m b e_ r s f i « st_ _ _ 

BEGIN 

IF OUTSEQ »" OUTSEG + 2*REAL( OUTSEQ*Q) + wRKSEQ 
BEGIN 



ELSE SRCESEQ;" 

ARE IN RANGE 

SEQf NUMBER 



LEQ PREVSEQ THEN 
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000.0700 
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000.0900 
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00021800 

00021900 

QQ. Qi_2.Q.._._L 
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00022200 

Q.0J_223Qfl 

00022400 

00022500 
00 0.22600 

000^2/00 
00022800 

000.2.290.0 

00023000 
00023100 
000.23 2 00. 
00023300 
00023400 

..ao_m5C_a~. 

00023600 
00023700 

..QjDJ_i_ia_-Q_. 
00023900 
00024000 
.O.Q__2.4.10-Q .... 
00024200 
00024300 

....QM.___A___.. 
00024500 
00024600 

M0__4_____ 

00024800 
00024900 

..f_fli__l__fl_l_L.. 
00025100 
00025200 

..Q__0.2_L3____ 

00025400 

00025500 
000 25600 
00025700 

00025800 
00025900 

000 26000 

00026100 
00026200 
00026300 
00026400 
0002 6 §00. 
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IF NOT fc-RAA 
OUTSEQ := P 

end; 

0UTC0NV(B[9)*0 
PREVSEQ «= OUT 
IF NPTR »* NPT 
BEGIN 

WRITE.CNF.WTA 
NPTK:=Oj 

end; 

N[NPTR3 la & 

END./ ..% IF MA.KI 

WRITE(0UTFIL»10#B 
NAP Is NAP + i; % 

-fiJL.in READ. SR CEL.. 

* • • » • 
EOF I 

!....». .«..».«. 

IF MAKTAB THEN 
BEGIN 

IF N.PTR?*NPTR + 

BEGIN 

WRITECNEWTA 
NPTR J. =0; 

end; 
n[nptr]:=eofma 

writecn£wtab#3 

read(newtabco] 
nco]»«nct; X E 

wjuieines tabid 

lockcnektab**) 
end; 
c!_use(srcefiu; l 

IF NOT SUPPRESS f 
BEGIN INFORMUS 

common is nap; 

END PROGRAM, 

enu;end. L 

DEFINE INTABUECI 



K THEN EHKQRcPREVSt«#aoTSEO)' * TELt THE USER 
REVSFQ + 2; % AOjUiT SEOULNCt imUMBER 

utseqj; 
seq; 

R.. + ...1 GTR g? THEN * $.6 GHENT IS.F.JLL.ED 

B»30, Nl*1 ); 



(NCTI»NCT + l)C4i32«i63 & OljTSEQ 1 21 :21 J 

AB _ _ _.__ _ _ 

t * j ) ; 

NUMBER UF RECU&DS APPENDED 



27]; 



1..GTR .2.9.. THEN 
B»30»Nt*]); 



rk; 

Q/NC*3i; 

*30#N[*] )/ 
OF POINTER 
.].*.3Q/.N.t*] 11. 



O.C.K C .C.U.IF I .L* ...*L! _ 

HEN 

ER(A, NAP, OUTSEQ)) T WXOIT ( A [0 ] , 56# 1 ) ; E 



nd; 
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99999999 
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